BMUG PD-ROM 1995 Fall/PD-ROM F95.toast/Programming/Programming Languages/UCB Logo 3.0 ƒ/logolib/`

Text File | 1992-09-04 | 358 b | 12 lines | [TEXT/ttxt]

to ` :backq.list
if emptyp :backq.list [op []]
if equalp first :backq.list ", ~
   [op fput run first bf :backq.list ` bf bf :backq.list]
if equalp first :backq.list ",@ ~
   [op se run first bf :backq.list ` bf bf :backq.list]
if wordp first :backq.list [op fput first :backq.list ` bf :backq.list]
op fput ` first :backq.list ` bf :backq.list
end

bury "`